home *** CD-ROM | disk | FTP | other *** search
/ Radio Press Kit / Radio Press Kit.iso / pc / main.dxr / Internal_25_XMLReader Parent.ls < prev    next >
Encoding:
Text File  |  2003-10-02  |  19.5 KB  |  476 lines
  1. property pList, pInputText, pNetID, pOK, pFinished
  2. global gXMLReader, gXML, gMasterText, gMaster, gParsedXML2, gTypes, gNotes, gSpriteNum, gNetID, gSound, gNodeWatcher, gMasterNodeText
  3.  
  4. on new me
  5.   pOK = "no"
  6.   pNetID = 0
  7.   pInputText = EMPTY
  8.   return me
  9. end
  10.  
  11. on mMakeXMLInstance me
  12.   gXML = 0
  13.   gXML = new(script("xml.parser"))
  14.   mReadXMLMember(gXMLReader, member("XMLinput", "assets").text)
  15.   mDoGeneralSettings(gXMLReader)
  16.   mDoGallerySettings(gXMLReader)
  17.   mDoSlideShowSettings(gXMLReader)
  18.   mDoVideoSettings(gXMLReader)
  19.   mDoAudioSettings(gXMLReader)
  20.   mDoNotesSettings(gXMLReader)
  21.   mDoSavedSettings(gXMLReader)
  22.   mDoCaptionSettings(gXMLReader)
  23.   mDoPosterSettings(gXMLReader)
  24.   mDoExportSettings(gXMLReader)
  25.   mDoInternalFolders(gXMLReader)
  26.   mDoExternalFolders(gXMLReader)
  27.   mDoGalleries(gXMLReader)
  28.   mDoLogoSettings(gXMLReader)
  29.   mDoGalleryToSummary(gXMLReader)
  30. end
  31.  
  32. on mReadXMLMember me, vXMLText
  33.   gMasterText = vXMLText
  34.   errCode = gXML.parseString(gMasterText)
  35.   pList = gXML.makeList()
  36. end
  37.  
  38. on mDoGeneralSettings me
  39.   gMaster.pGeneralSettings.title = gXMLReader.pList[1][2][2][2][2]
  40.   gMaster.pGeneralSettings.stageColor = gXMLReader.pList[1][2][2][3][2]
  41.   gMaster.pGeneralSettings.url = gXMLReader.pList[1][2][2][4][2]
  42.   gMaster.pGeneralSettings.qtmac = gXMLReader.pList[1][2][2][5][2]
  43.   gMaster.pGeneralSettings.qtpc = gXMLReader.pList[1][2][2][6][2]
  44.   gMaster.pMediumCastLib = gXMLReader.pList[1][2][2][7][2]
  45.   gMaster.pSmallCastLib = gXMLReader.pList[1][2][2][8][2]
  46. end
  47.  
  48. on mDoGallerySettings
  49.   gMaster.pGallerySettings.pushpin = gXMLReader.pList[1][2][3][2][2]
  50.   gMaster.pGallerySettings.rectangles = gXMLReader.pList[1][2][3][3][2]
  51.   gMaster.pGallerySettings.blendeffect = gXMLReader.pList[1][2][3][4][2]
  52.   gMaster.pGallerySettings.xyeffect = gXMLReader.pList[1][2][3][5][2]
  53.   gMaster.pGallerySettings.percenteffect = gXMLReader.pList[1][2][3][6][2]
  54.   gMaster.pGallerySettings.percentage = gXMLReader.pList[1][2][3][7][2]
  55.   gMaster.pGallerySettings.xytitle = value(gXMLReader.pList[1][2][3][8][2])
  56.   gMaster.pGallerySettings.pinoffset = value(gXMLReader.pList[1][2][3][9][2])
  57.   gMaster.pGallerySettings.pingraphic = gXMLReader.pList[1][2][3][10][2]
  58.   gMaster.pGallerySettings.blendpercent = value(gXMLReader.pList[1][2][3][11][2])
  59.   gMaster.pGallerySettings.titlelogoeffect = gXMLReader.pList[1][2][3][12][2]
  60. end
  61.  
  62. on mDoSlideShowSettings me
  63.   gMaster.pSlideShowSettings.pushpin = gXMLReader.pList[1][2][4][2][2]
  64.   gMaster.pSlideShowSettings.rectangles = gXMLReader.pList[1][2][4][3][2]
  65.   gMaster.pSlideShowSettings.blendeffect = gXMLReader.pList[1][2][4][4][2]
  66.   gMaster.pSlideShowSettings.xyeffect = gXMLReader.pList[1][2][4][5][2]
  67.   gMaster.pSlideShowSettings.percenteffect = gXMLReader.pList[1][2][4][6][2]
  68.   gMaster.pSlideShowSettings.percentage = gXMLReader.pList[1][2][4][7][2]
  69.   gMaster.pSlideShowSettings.xytitle = value(gXMLReader.pList[1][2][4][8][2])
  70.   gMaster.pSlideShowSettings.pinoffset = value(gXMLReader.pList[1][2][4][9][2])
  71.   gMaster.pSlideShowSettings.pingraphic = gXMLReader.pList[1][2][4][10][2]
  72.   gMaster.pSlideShowSettings.blendpercent = value(gXMLReader.pList[1][2][4][11][2])
  73.   gMaster.pSlideShowSettings.savedbutton = gXMLReader.pList[1][2][4][12][2]
  74.   gMaster.pSlideShowSettings.savebutton = gXMLReader.pList[1][2][4][13][2]
  75.   gMaster.pSlideShowSettings.xyflasheffect = gXMLReader.pList[1][2][4][14][2]
  76.   gMaster.pSlideShowSettings.titlelogoeffect = gXMLReader.pList[1][2][4][15][2]
  77. end
  78.  
  79. on mDoSavedSettings me
  80.   gMaster.pSavedSettings.pushpin = gXMLReader.pList[1][2][5][2][2]
  81.   gMaster.pSavedSettings.rectangles = gXMLReader.pList[1][2][5][3][2]
  82.   gMaster.pSavedSettings.blendeffect = gXMLReader.pList[1][2][5][4][2]
  83.   gMaster.pSavedSettings.xyeffect = gXMLReader.pList[1][2][5][5][2]
  84.   gMaster.pSavedSettings.percenteffect = gXMLReader.pList[1][2][5][6][2]
  85.   gMaster.pSavedSettings.percentage = gXMLReader.pList[1][2][5][7][2]
  86.   gMaster.pSavedSettings.xytitle = value(gXMLReader.pList[1][2][5][8][2])
  87.   gMaster.pSavedSettings.pinoffset = value(gXMLReader.pList[1][2][5][9][2])
  88.   gMaster.pSavedSettings.pingraphic = gXMLReader.pList[1][2][5][10][2]
  89.   gMaster.pSavedSettings.blendpercent = value(gXMLReader.pList[1][2][5][11][2])
  90.   vCount = gXMLReader.pList[1][2][5][12].count
  91.   vTempCount = 0
  92.   vPhotoSprite = 68
  93.   vRectSprite = 27
  94.   vPushPinSprite = 109
  95.   vPosterNum = 0
  96.   vLogoNum = 0
  97.   vType = gXMLReader.pList[1][2][5][12][2][2]
  98.   vXY = value(gXMLReader.pList[1][2][5][12][3][2])
  99.   vPage = value(gXMLReader.pList[1][2][5][12][4][2])
  100.   vSmall = gXMLReader.pList[1][2][5][12][5][2]
  101.   vCastLib = gXMLReader.pList[1][2][5][12][6][2]
  102.   vDownload = gXMLReader.pList[1][2][5][12][7][2]
  103.   vKeyNum = 1
  104.   vTempCount = vTempCount + 1
  105.   vPhotoSprite = vPhotoSprite + 1
  106.   vRectSprite = vRectSprite + 1
  107.   vPushPinSprite = vPushPinSprite + 1
  108.   gNotes.pProductionCastName = vSmall
  109.   vLarge = EMPTY
  110.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  111.   vType = gXMLReader.pList[1][2][5][13][2][2]
  112.   vXY = value(gXMLReader.pList[1][2][5][13][3][2])
  113.   vPage = value(gXMLReader.pList[1][2][5][13][4][2])
  114.   vSmall = gXMLReader.pList[1][2][5][13][5][2]
  115.   vCastLib = gXMLReader.pList[1][2][5][13][6][2]
  116.   vDownload = gXMLReader.pList[1][2][5][13][7][2]
  117.   vKeyNum = 1
  118.   vTempCount = vTempCount + 1
  119.   vPhotoSprite = vPhotoSprite + 1
  120.   vRectSprite = vRectSprite + 1
  121.   vPushPinSprite = vPushPinSprite + 1
  122.   gNotes.pCreditsCastName = vSmall
  123.   vLarge = EMPTY
  124.   add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  125.   vKeyNum = 0
  126.   vCount = gXMLReader.pList[1][2][5][14].count
  127.   repeat with r = 2 to vCount
  128.     vType = gXMLReader.pList[1][2][5][14][r][2][2]
  129.     vXY = value(gXMLReader.pList[1][2][5][14][r][3][2])
  130.     vPage = value(gXMLReader.pList[1][2][5][14][r][4][2])
  131.     vSmall = gXMLReader.pList[1][2][5][14][r][5][2]
  132.     vCastLib = gXMLReader.pList[1][2][5][14][r][6][2]
  133.     vDownload = gXMLReader.pList[1][2][5][14][r][7][2]
  134.     vTempCount = vTempCount + 1
  135.     vPhotoSprite = vPhotoSprite + 1
  136.     vRectSprite = vRectSprite + 1
  137.     vPushPinSprite = vPushPinSprite + 1
  138.     vKeyNum = vKeyNum + 1
  139.     vLarge = EMPTY
  140.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  141.   end repeat
  142.   vKeyNum = 0
  143.   vCount = gXMLReader.pList[1][2][5][15].count
  144.   repeat with r = 2 to vCount
  145.     vType = gXMLReader.pList[1][2][5][15][r][2][2]
  146.     vXY = value(gXMLReader.pList[1][2][5][15][r][3][2])
  147.     vPage = value(gXMLReader.pList[1][2][5][15][r][4][2])
  148.     vSmall = gXMLReader.pList[1][2][5][15][r][5][2]
  149.     vCastLib = gXMLReader.pList[1][2][5][15][r][6][2]
  150.     vDownload = gXMLReader.pList[1][2][5][15][r][7][2]
  151.     vTempCount = vTempCount + 1
  152.     vPhotoSprite = vPhotoSprite + 1
  153.     vRectSprite = vRectSprite + 1
  154.     vPushPinSprite = vPushPinSprite + 1
  155.     vKeyNum = vKeyNum + 1
  156.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum))
  157.   end repeat
  158. end
  159.  
  160. on mDoVideoSettings me
  161.   gMaster.pVideoSettings.videomode = gXMLReader.pList[1][2][6][2][2]
  162.   gMaster.pVideoSettings.videoname = gXMLReader.pList[1][2][6][3][2]
  163.   gMaster.pVideoSettings.xyvideo = value(gXMLReader.pList[1][2][6][4][2])
  164.   gMaster.pVideoSettings.videosprite = value(gXMLReader.pList[1][2][6][5][2])
  165.   gMaster.pVideoSettings.videopercentage = value(gXMLReader.pList[1][2][6][6][2])
  166.   gMaster.pVideoSettings.videocontroller = gXMLReader.pList[1][2][6][7][2]
  167. end
  168.  
  169. on mDoAudioSettings me
  170.   gSound.pBGSoundStatus = gXMLReader.pList[1][2][7][2][2]
  171.   gSound.pButtonStatus = gXMLReader.pList[1][2][7][3][2]
  172.   gSound.pBGSoundMember = gXMLReader.pList[1][2][7][4][2]
  173.   gSound.pBGSoundLooped = gXMLReader.pList[1][2][7][5][2]
  174.   gSound.pBGSoundChannel = value(gXMLReader.pList[1][2][7][6][2])
  175.   gSound.pButtonSoundMember = gXMLReader.pList[1][2][7][7][2]
  176.   gSound.pButtonSoundChannel = value(gXMLReader.pList[1][2][7][8][2])
  177. end
  178.  
  179. on mDoNotesSettings me
  180.   vSpriteNum = value(gXMLReader.pList[1][2][8][2][2])
  181.   vProdActive = gXMLReader.pList[1][2][8][3][2]
  182.   vCastActive = gXMLReader.pList[1][2][8][4][2]
  183.   vCreditsActive = gXMLReader.pList[1][2][8][5][2]
  184.   vFilmActive = gXMLReader.pList[1][2][8][6][2]
  185.   vProdName = gXMLReader.pList[1][2][8][7][2]
  186.   vCastName = gXMLReader.pList[1][2][8][8][2]
  187.   vCreditsName = gXMLReader.pList[1][2][8][9][2]
  188.   vFilmName = gXMLReader.pList[1][2][8][10][2]
  189.   vProdFileDOCe = gXMLReader.pList[1][2][8][11][2]
  190.   vProdFileDOCs = gXMLReader.pList[1][2][8][12][2]
  191.   vProdFilePDFe = gXMLReader.pList[1][2][8][13][2]
  192.   vProdFilePDFs = gXMLReader.pList[1][2][8][14][2]
  193.   vCreditsFileDOCe = gXMLReader.pList[1][2][8][15][2]
  194.   vCreditsFileDOCs = gXMLReader.pList[1][2][8][16][2]
  195.   vCreditsFilePDFe = gXMLReader.pList[1][2][8][17][2]
  196.   vCreditsFilePDFs = gXMLReader.pList[1][2][8][18][2]
  197.   vDownload = gXMLReader.pList[1][2][8][19][2]
  198.   vSide = gXMLReader.pList[1][2][8][20][2]
  199.   vVertLoc = value(gXMLReader.pList[1][2][8][21][2])
  200.   vHorzStartLoc = value(gXMLReader.pList[1][2][8][22][2])
  201.   vHorzFinishLoc = value(gXMLReader.pList[1][2][8][23][2])
  202.   vTabSprite = value(gXMLReader.pList[1][2][8][24][2])
  203.   gNotes = new(script("Notes Parent"), vSpriteNum, vProdActive, vCastActive, vCreditsActive, vFilmActive, vProdName, vCastName, vCreditsName, vFilmName, vProdFileDOCe, vProdFileDOCs, vProdFilePDFe, vProdFilePDFs, vCreditsFileDOCe, vCreditsFileDOCs, vCreditsFilePDFe, vCreditsFilePDFs, vDownload, vSide, vVertLoc, vHorzStartLoc, vHorzFinishLoc, vTabSprite)
  204. end
  205.  
  206. on mDoCaptionSettings me
  207.   gMaster.pCaption1 = gXMLReader.pList[1][2][9][2][2]
  208.   gMaster.pCaption2 = gXMLReader.pList[1][2][9][3][2]
  209.   gMaster.pCaption3 = gXMLReader.pList[1][2][9][4][2]
  210. end
  211.  
  212. on mDoPosterSettings me
  213.   gMaster.pPosterSettings.pushpin = gXMLReader.pList[1][2][10][2][2]
  214.   gMaster.pPosterSettings.rectangles = gXMLReader.pList[1][2][10][3][2]
  215.   gMaster.pPosterSettings.blendeffect = gXMLReader.pList[1][2][10][4][2]
  216.   gMaster.pPosterSettings.xyeffect = gXMLReader.pList[1][2][10][5][2]
  217.   gMaster.pPosterSettings.percenteffect = gXMLReader.pList[1][2][10][6][2]
  218.   gMaster.pPosterSettings.percentage = value(gXMLReader.pList[1][2][10][7][2])
  219.   gMaster.pPosterSettings.blendpercent = value(gXMLReader.pList[1][2][10][8][2])
  220.   gMaster.pPosterSettings.savedbutton = gXMLReader.pList[1][2][10][9][2]
  221.   gMaster.pPosterSettings.savebutton = gXMLReader.pList[1][2][10][10][2]
  222.   gMaster.pPosterSettings.pinoffset = value(gXMLReader.pList[1][2][10][11][2])
  223.   vCount = gXMLReader.pList[1][2][10][12].count
  224.   vTempCount = 0
  225.   gMaster.pPosterList = []
  226.   repeat with x = 1 to vCount
  227.     if x = 1 then
  228.       nothing()
  229.       next repeat
  230.     end if
  231.     vXY = value(gXMLReader.pList[1][2][10][12][x][2][2])
  232.     vSmall = gXMLReader.pList[1][2][10][12][x][3][2]
  233.     vLarge = gXMLReader.pList[1][2][10][12][x][4][2]
  234.     vSaveSprite = value(gXMLReader.pList[1][2][10][12][x][5][2])
  235.     vTempCount = vTempCount + 1
  236.     vRectSpriteP = gMaster.pRectangleSpriteStartNum - 1 + vTempCount
  237.     vPhotoSpriteP = gMaster.pPhotoSpriteStartNum - 1 + vTempCount
  238.     vPushPinSpriteP = gMaster.pPushPinSpriteStartNum - 1 + vTempCount
  239.     vCastLib = "assets"
  240.     add(gMaster.pPosterList, new(script("Poster Parent"), x - 1, vXY, vSmall, vLarge, vRectSpriteP, vPhotoSpriteP, vPushPinSpriteP, vSaveSprite, vCastLib))
  241.   end repeat
  242. end
  243.  
  244. on mDoLogoSettings me
  245.   gMaster.pLogoSettings.pushpin = gXMLReader.pList[1][2][15][2][2]
  246.   gMaster.pLogoSettings.rectangles = gXMLReader.pList[1][2][15][3][2]
  247.   gMaster.pLogoSettings.blendeffect = gXMLReader.pList[1][2][15][4][2]
  248.   gMaster.pLogoSettings.xyeffect = gXMLReader.pList[1][2][15][5][2]
  249.   gMaster.pLogoSettings.percenteffect = gXMLReader.pList[1][2][15][6][2]
  250.   gMaster.pLogoSettings.percentage = value(gXMLReader.pList[1][2][15][7][2])
  251.   gMaster.pLogoSettings.blendpercent = value(gXMLReader.pList[1][2][15][8][2])
  252.   gMaster.pLogoSettings.savedbutton = gXMLReader.pList[1][2][15][9][2]
  253.   gMaster.pLogoSettings.savebutton = gXMLReader.pList[1][2][15][10][2]
  254.   gMaster.pLogoSettings.pinoffset = value(gXMLReader.pList[1][2][15][11][2])
  255.   vCount = gXMLReader.pList[1][2][15][12].count
  256.   vTempCount = 0
  257.   gMaster.pLogoList = []
  258.   repeat with x = 1 to vCount
  259.     if x = 1 then
  260.       nothing()
  261.       next repeat
  262.     end if
  263.     vXY = value(gXMLReader.pList[1][2][15][12][x][2][2])
  264.     vSmall = gXMLReader.pList[1][2][15][12][x][3][2]
  265.     vLarge = gXMLReader.pList[1][2][15][12][x][4][2]
  266.     vSaveSprite = value(gXMLReader.pList[1][2][15][12][x][5][2])
  267.     vTempCount = vTempCount + 1
  268.     vRectSpriteP = gMaster.pRectangleSpriteStartNum - 1 + vTempCount
  269.     vPhotoSpriteP = gMaster.pPhotoSpriteStartNum - 1 + vTempCount
  270.     vPushPinSpriteP = gMaster.pPushPinSpriteStartNum - 1 + vTempCount
  271.     add(gMaster.pLogoList, new(script("logo Parent"), x - 1, vXY, vSmall, vLarge, vRectSpriteP, vPhotoSpriteP, vPushPinSpriteP, vSaveSprite))
  272.   end repeat
  273. end
  274.  
  275. on mDoExportSettings me
  276.   gMaster.pExportSettings.savetodesktop = gXMLReader.pList[1][2][11][2][2]
  277.   gMaster.pExportSettings.savetoharddrive = gXMLReader.pList[1][2][11][3][2]
  278.   gMaster.pExportSettings.captions = gXMLReader.pList[1][2][11][4][2]
  279.   gMaster.pExportSettings.notes = gXMLReader.pList[1][2][11][5][2]
  280.   gMaster.pExportSettings.posters = gXMLReader.pList[1][2][11][6][2]
  281. end
  282.  
  283. on mDoInternalFolders me
  284.   gMaster.pInternalFolders.qtfolder = gXMLReader.pList[1][2][12][2][2]
  285.   gMaster.pInternalFolders.docsfolder = gXMLReader.pList[1][2][12][3][2]
  286.   gMaster.pInternalFolders.imagesfolder = gXMLReader.pList[1][2][12][4][2]
  287.   gMaster.pInternalFolders.posterfolder = gXMLReader.pList[1][2][12][5][2]
  288.   gMaster.pInternalFolders.notesfolder = gXMLReader.pList[1][2][12][6][2]
  289.   gMaster.pInternalFolders.logosfolder = gXMLReader.pList[1][2][12][7][2]
  290. end
  291.  
  292. on mDoExternalFolders me
  293.   gMaster.pExternalFolders.masterfolder = gXMLReader.pList[1][2][13][2][2]
  294.   gMaster.pExternalFolders.docsfolder = gXMLReader.pList[1][2][13][3][2]
  295.   gMaster.pExternalFolders.imagesfolder = gXMLReader.pList[1][2][13][4][2]
  296.   gMaster.pExternalFolders.posterfolder = gXMLReader.pList[1][2][13][5][2]
  297.   gMaster.pExternalFolders.notesfolder = gXMLReader.pList[1][2][13][6][2]
  298.   gMaster.pExternalFolders.logosfolder = gXMLReader.pList[1][2][13][7][2]
  299. end
  300.  
  301. on mDoGalleries me
  302.   vCount = gXMLReader.pList[1][2][14].count
  303.   vTempFlash = 0
  304.   gMaster.pPhotoList = []
  305.   vTempCount = 0
  306.   vOldSavedPageNum = 0
  307.   repeat with x = 1 to vCount
  308.     if x = 1 then
  309.       nothing()
  310.       next repeat
  311.     end if
  312.     vTempCount2 = 0
  313.     vRectSpriteG = 0
  314.     vPhotoSpriteG = 0
  315.     vPushPinSpriteG = 0
  316.     vCount2 = gXMLReader.pList[1][2][14][x].count
  317.     vGalleryNumber = value(gXMLReader.pList[1][2][14][x][2][2])
  318.     vGalleryName = gXMLReader.pList[1][2][14][x][3][2]
  319.     vTitleGallery = gXMLReader.pList[1][2][14][x][4][2]
  320.     vTitleSlide = gXMLReader.pList[1][2][14][x][5][2]
  321.     vTitleSaved = gXMLReader.pList[1][2][14][x][6][2]
  322.     repeat with y = 7 to vCount2
  323.       vCount3 = gXMLReader.pList[1][2][14][x][y].count
  324.       repeat with z = 1 to vCount3
  325.         case z of
  326.           1:
  327.           2:
  328.             vXYGallery = value(gXMLReader.pList[1][2][14][x][y][z][2])
  329.           3:
  330.             vXYSlide = value(gXMLReader.pList[1][2][14][x][y][z][2])
  331.           4:
  332.             vXYSaved = value(gXMLReader.pList[1][2][14][x][y][z][2])
  333.           5:
  334.             vXYFlash = value(gXMLReader.pList[1][2][14][x][y][z][2])
  335.           6:
  336.             vSavedPageNum = value(gXMLReader.pList[1][2][14][x][y][z][2])
  337.             if vSavedPageNum > vOldSavedPageNum then
  338.               vTempCount3 = 0
  339.             end if
  340.             vOldSavedPageNum = vSavedPageNum
  341.           7:
  342.             vSmallName = gXMLReader.pList[1][2][14][x][y][z][2]
  343.           8:
  344.             vlargeName = gXMLReader.pList[1][2][14][x][y][z][2]
  345.           9:
  346.             vOKtoDownload = gXMLReader.pList[1][2][14][x][y][z][2]
  347.           10:
  348.             vEnglishCaption = gXMLReader.pList[1][2][14][x][y][z][2]
  349.           11:
  350.             vSpanishCaption = gXMLReader.pList[1][2][14][x][y][z][2]
  351.           otherwise:
  352.             put "houston you have a problem"
  353.         end case
  354.       end repeat
  355.       vTempCount = vTempCount + 1
  356.       vTempCount2 = vTempCount2 + 1
  357.       vTempCount3 = vTempCount3 + 1
  358.       vTempFlash = vTempFlash + 1
  359.       vFlashLabel = vTempFlash
  360.       vRectSpriteG = gMaster.pRectangleSpriteStartNum - 1 + vTempCount2
  361.       vPhotoSpriteG = gMaster.pPhotoSpriteStartNum - 1 + vTempCount2
  362.       vPushPinSpriteG = gMaster.pPushPinSpriteStartNum - 1 + vTempCount2
  363.       vRectSpriteS = gMaster.pRectangleSpriteStartNum - 1 + vTempCount3
  364.       vPhotoSpriteS = gMaster.pPhotoSpriteStartNum - 1 + vTempCount3
  365.       vPushPinSpriteS = gMaster.pPushPinSpriteStartNum - 1 + vTempCount3
  366.       add(gMaster.pPhotoList, new(script("Photo Parent"), vGalleryNumber, vTempCount, vGalleryName, vXYGallery, vXYSlide, vXYSaved, vXYFlash, vSavedPageNum, vSmallName, vlargeName, vFlashLabel, vTitleGallery, vTitleSlide, vTitleSaved, vRectSpriteG, vPhotoSpriteG, vPushPinSpriteG, vRectSpriteS, vPhotoSpriteS, vPushPinSpriteS, vOKtoDownload, vEnglishCaption, vSpanishCaption))
  367.     end repeat
  368.   end repeat
  369. end
  370.  
  371. on mDoGalleryToSummary me
  372.   vCount = gMaster.pPhotoList.count
  373.   vTempCount = gMaster.pSummaryList.count
  374.   vAddNum = vTempCount
  375.   repeat with x = 1 to vCount
  376.     vType = "photo"
  377.     vXY = gMaster.pPhotoList[x].pXYSaved
  378.     vPage = gMaster.pPhotoList[x].pSavedPage
  379.     vSmall = gMaster.pPhotoList[x].pSmallName
  380.     vLarge = gMaster.pPhotoList[x].pLargeName
  381.     vCastLib = gMaster.pMediumCastLib
  382.     vDownload = gMaster.pPhotoList[x].pOKtoDownload
  383.     vPhotoSprite = gMaster.pPhotoList[x].pPhotoSpriteSaved + vAddNum
  384.     vRectSprite = gMaster.pPhotoList[x].pRectSpriteSaved + vAddNum
  385.     vPushPinSprite = gMaster.pPhotoList[x].pPushPinSpriteSaved + vAddNum
  386.     gMaster.pPhotoList[x].pPhotoSpriteSaved = vPhotoSprite
  387.     gMaster.pPhotoList[x].pRectSpriteSaved = vRectSprite
  388.     gMaster.pPhotoList[x].pPushPinSpriteSaved = vPushPinSprite
  389.     vKeyNum = gMaster.pPhotoList[x].pPhotoNumber
  390.     vTempCount = vTempCount + 1
  391.     add(gMaster.pSummaryList, new(script("Summary Parent"), vTempCount, vType, vXY, vPage, vSmall, vCastLib, vDownload, vPhotoSprite, vRectSprite, vPushPinSprite, vKeyNum, vLarge))
  392.   end repeat
  393. end
  394.  
  395. on mSetInputText me, theText
  396.   pInputText = theText
  397.   gMasterText = theText
  398. end
  399.  
  400. on mGetTextFile me, theURL
  401.   pOK = "no"
  402.   toMail = getNetText(theURL)
  403.   pNetID = getLatestNetID()
  404. end
  405.  
  406. on mGetTextFile2 me
  407.   mSetInputText(gXMLReader, member("XML-text").text)
  408.   pFinished = "yes"
  409. end
  410.  
  411. on mStartMeUp me
  412.   mGetTextFile2(gXMLReader)
  413. end
  414.  
  415. on mXMLTree me, theMember
  416.   mSetMasterList(gNodeWatcher, theMember)
  417.   mInitParser(gXMLReader, #parseString)
  418.   mParseString(gNodeWatcher, #parseString, theMember)
  419.   mStartRecursion(gXMLReader)
  420. end
  421.  
  422. on mStartRecursion me
  423.   mInitString(gNodeWatcher)
  424.   mProcessNode(gNodeWatcher)
  425.   mPrintTreeInfo(gNodeWatcher)
  426. end
  427.  
  428. on mInitParser me, WhatToParse
  429.   mSetMasterNode(gNodeWatcher, 1)
  430.   gParsedXML2 = new(script("xml.parser"))
  431.   case WhatToParse of
  432.     #parseString:
  433.       parsedData = parseString(gParsedXML2, WhatToParse)
  434.       if getError(gParsedXML2) = VOID then
  435.       else
  436.         exit
  437.       end if
  438.   end case
  439. end
  440.  
  441. on stepFrame me
  442.   if netDone(pNetID) then
  443.     if netError(pNetID) = "OK" then
  444.       mDeleteActor(me)
  445.       mGoTo2(gXMLReader)
  446.     else
  447.     end if
  448.   end if
  449. end
  450.  
  451. on mGoTo2 me
  452.   theText = netTextresult(pNetID)
  453.   gMasterText = string(theText)
  454.   mXMLTree(gXMLReader, gMasterText)
  455.   DoXMLXtra(gTypes)
  456.   mParseTypesXML(gTypes)
  457.   pOK = "yes"
  458.   mProgress("Types XML has finished")
  459. end
  460.  
  461. on mStopUpDater me
  462.   pWhichOne = 0
  463.   return me
  464. end
  465.  
  466. on mAddActor me
  467.   add(the actorList, me)
  468. end
  469.  
  470. on mDeleteActor me
  471.   where = getOne(the actorList, me)
  472.   if where > 0 then
  473.     deleteAt(the actorList, where)
  474.   end if
  475. end
  476.